In the following section we will show the results for each fungicide
## Analyses
##NORMALITY TEST-Shapiro_test
shapiro.test.macrophomina <- macrophomina.xx %>%
do(tidy(shapiro.test(.$EC50)))
shapiro.test.macrophomina[[2]][[1]]
## [1] 0.8292426
#surprisingly they are normal
#
AOV.1 <- (aov (EC50 ~ ID, data = macrophomina.xx))
summary(AOV.1)
## Df Sum Sq Mean Sq
## ID 49 0.4199 0.008569
#P value of 0.805, there is no difference
#ANOVA
macrophomina.xx %>% ggplot( aes(x= ID, y=EC50))+ geom_point()
ggsave("macrophomina.xx.png")
## Saving 7 x 5 in image
## Analyses
##NORMALITY TEST-Shapiro_test
shapiro.test.sclerotium <- sclerotium.yy %>%
do(tidy(shapiro.test(.$EC50)))
shapiro.test.sclerotium[[2]][[1]]
## [1] 1.81363e-07
#No normals
#NO NORMALILTY 0.00000125 , thats is why krusKal
#by ID
object.1 <- kruskal.test(EC50 ~ ID, data = sclerotium.yy)
object.1[[3]][[1]]
## [1] 0.4579297
#There no is difference p-value = 0.4579297
#object.2 <- DunnTest(EC50 ~ ID, data = sclerotium.yy, method = "bonferroni")
#object.2
sclerotium.yy %>% ggplot( aes(x= ID, y=EC50)) + geom_point() + expand_limits( y = c(0, 27000)) +scale_y_continuous(
breaks = c(0, 500, 1000, 2000, 3000, 4000, 5000, 6000, 7000, 8000, 9000, 10000, 20000))
ggsave("sclerotium.yy.png")
## Saving 7 x 5 in image